﻿Public Class ucDoanhThu

    Private Sub NavBarItem2_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem2.LinkClicked
        gpChucNang.Controls.Clear()
        gpChucNang.Text = "Báo Cáo Chi Phí Mua Hàng Theo Nhà Cung Cấp"
        Dim uc As New ucChiPhiTheoNCC
        uc.Dock = DockStyle.Fill
        gpChucNang.Controls.Add(uc)
    End Sub

    Private Sub NavBarItem3_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem3.LinkClicked
        gpChucNang.Controls.Clear()
        gpChucNang.Text = "Báo Cáo Doanh Số Theo Ngày"
        Dim uc As New ucDoanhThuTheoNgay
        uc.Dock = DockStyle.Fill
        gpChucNang.Controls.Add(uc)
    End Sub

    Private Sub NavBarItem4_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem4.LinkClicked
        gpChucNang.Controls.Clear()
        gpChucNang.Text = "Báo Cáo Doanh Số Theo Khách Hàng"
        Dim uc As New ucDoanhThuTheoNV
        uc.Dock = DockStyle.Fill
        gpChucNang.Controls.Add(uc)
    End Sub

    Private Sub NavBarItem5_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem5.LinkClicked
        gpChucNang.Controls.Clear()
        gpChucNang.Text = "Báo Cáo Bán Hàng Theo Nhân Viên"
        Dim uc As New ucDoanhSoTheoNV
        uc.Dock = DockStyle.Fill
        gpChucNang.Controls.Add(uc)
    End Sub

    Private Sub NavBarItem6_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles NavBarItem6.LinkClicked
        gpChucNang.Controls.Clear()
        gpChucNang.Text = "Báo Cáo Lợi Nhuận"
        Dim uc As New ucLoiNhuan
        uc.Dock = DockStyle.Fill
        gpChucNang.Controls.Add(uc)
    End Sub

    Private Sub btnTheoNgay_LinkClicked(sender As Object, e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles btnTheoNgay.LinkClicked
        gpChucNang.Controls.Clear()
        gpChucNang.Text = "Báo Cáo Chi Phí Mua Hàng Theo Ngày"
        Dim uc As New ucChiPhiTheoNgay
        uc.Dock = DockStyle.Fill
        gpChucNang.Controls.Add(uc)
    End Sub
End Class
